home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 003.dms / 003.adf / EXAMPLE_PROGRAMS / example10_1.AMOS / example10_1.amosSourceCode
Encoding:
AMOS Source Code  |  1993-02-25  |  1.1 KB  |  47 lines
  1. Rem example10_1.amos 
  2. '
  3. '
  4. Rem display a bob 1 from a loaded sprite file
  5. '
  6. '
  7. Rem the usual stuff, not forgetting FLASH OFF, try it without it!
  8. Flash Off : Curs Off : Paper 0 : Hide : Cls 0
  9. '
  10. '
  11. Rem load in the sprite bank into bank 1
  12. Load "df0:bobs/spacecraft.abk",1
  13. '
  14. '
  15. Rem use the colours from the sprite bank, try it without this line to see effect 
  16. Get Sprite Palette 
  17. '
  18. '
  19. Rem assign an Amal channel to bob 1
  20. Channel 1 To Bob 1
  21. '
  22. '
  23. Rem Display BOB 1 at 10 pixels across and 100 pixels down the screen 
  24. Rem the 1 on the end is the current bob number in use. 
  25. Bob 1,10,100,1
  26. '
  27. '
  28. Rem set up the animation sequence, images 1 to 4 animate the engine flame
  29. Rem the 5 is the delay in 50ths of a second between each frame, change the   
  30. Rem 5s to see the animation in slow or faster motion.  
  31. Rem the L at the end tells Amos we want the animation to Loop continuously 
  32. Rem and not just play once, remove the L to see the effect.
  33. Anim 1,"(1,5)(2,5)(3,5)(4,5)l"
  34. '
  35. '
  36. Rem Tell Amos to start the Animation 
  37. Anim On 
  38. '
  39. '
  40. Rem CLEAR the KEYboard buffer of keypresses ans WAIT for a KEY press   
  41. Clear Key : Wait Key 
  42. '
  43. '
  44. Rem show you what is happening in the memory banks 
  45. List Bank 
  46. '
  47. '